home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / terms / kermit / b / ckmsav.c < prev    next >
Encoding:
C/C++ Source or Header  |  1993-06-30  |  20.1 KB  |  688 lines
  1. /* $Id: ckmsav.c,v 1.7 91/12/15 23:17:50 rick Exp $
  2.  * $Source: /uw/mackermit/RCS/ckmsav.c,v $
  3.  *------------------------------------------------------------------
  4.  * $Log:    ckmsav.c,v $
  5.  * Revision 1.7  91/12/15  23:17:50  rick
  6.  * ut9
  7.  * 
  8.  * Revision 1.6  91/10/13  13:43:36  rick
  9.  * UT(7)
  10.  * 
  11.  * Revision 1.5  91/10/01  12:16:56  rick
  12.  * UT(5)
  13.  * 
  14.  * Revision 1.4  91/09/25  12:17:32  rick
  15.  * Command window in TE. Multiple vt100 windows for command window.
  16.  * 
  17.  * Revision 1.3  91/09/12  21:50:51  rick
  18.  * UT(3). Install on watsun
  19.  * 
  20.  * Revision 1.2  1991/09/10  22:21:47  rick
  21.  * Update to UTexas(2)
  22.  *
  23.  * Revision 1.1  1991/09/10  19:18:03  rick
  24.  * Initial revision
  25.  *
  26.  *------------------------------------------------------------------
  27.  * $Endlog$
  28.  */
  29.  
  30. /* Paul Placeway, Ohio State -- changed the format of saved Is and Cs to */
  31. /*  {number, item, item, ...} */
  32. /* Version 0.8(35) - Jim Noble at Planning Research Corporation, June 1987. */
  33. /* Ported to Megamax native Macintosh C compiler. */
  34. /* Edit by Frank on Jun 20 17:20 */
  35. /* Don't set sio chip parity */
  36. /* Edit by Bill on May 29 01:01 */
  37. /* Add key configurator */
  38. /* Edit by Bill on May 10 9:24 */
  39. /* Saving settings file to a different disk doesn't work and may bomb */
  40. /* Edit by Bill on May 8 7:17 */
  41. /* Save default file settings, now incompatable with existing save files! */
  42. /* Edit by Bill & Jeff on May 1 14:16 */
  43. /* findfinderfiles was bombing because of fName[1] definition of myAppFile */
  44. /* Edit by Bill on Apr 30 05:50 */
  45. /* Call FlushVol after saving the settings */
  46.  
  47. /*
  48.  * file ckmsav.c
  49.  *
  50.  * Module of MacKermit containing code for saving and restoring
  51.  * various variables.
  52.  *
  53.   Copyright (C) 1985, 1992, Trustees of Columbia University in the City of New
  54.   York.  Permission is granted to any individual or institution to use this
  55.   software as long as it is not sold for profit.  This copyright notice must be
  56.   retained.  This software may not be included in commercial products without
  57.   written permission of Columbia University.
  58.  *
  59.  */
  60.  
  61. #include "ckcdeb.h"        /* Kermit definitions */
  62. #include "ckcker.h"        /* Kermit definitions */
  63.  
  64. #include "ckmdef.h"        /* Common Mac module definitions */
  65. #include "ckmres.h"        /* resource defs */
  66. #include "ckmcon.h"
  67. #include "ckmptp.h"        /* ckm* Prototypes */
  68.  
  69. OSType kermtype = ApplCreator, settingstype = 'KERS';
  70. OSType texttype = 'TEXT';
  71. OSType loadlist[] = {'KERS','TEXT'};
  72.  
  73. int scrinvert;            /* intermediate container for screeninvert */
  74. int scrsize;            /* ditto for size */
  75. int scrpostop;            /* screen position of terminal window -- top edge */
  76. int scrposlft;            /* ditto for left edge */
  77. int scrfntsz;            /* screen font size */
  78. int savinnum;            /* intermediate container for innum (I/O port) */
  79. char savmcmdactive;        /* intermediate container for mcmdactive */
  80.  
  81. extern int drop_dtr;
  82.  
  83. extern int dfprty;                      /* Default parity */
  84. extern int dfflow;                      /* Default flow control */
  85. extern int fDTR, fCTS;
  86.  
  87. /*
  88.  * Some things have been moved to the ttermw struct.  Keep
  89.  * placeholders for them and fixup later.
  90.  */
  91. int *inames[] = {
  92.     &speed, &parity, &duplex, &delay, &mypadn,
  93.     &npad, &timint, &rtimo, &urpsiz, &spsiz,
  94.     &turnch, &turn, &bctr, &filargs.fildflg,
  95.     NULL,                /* 14 termw->newline */
  96.     NULL,                /* 15 termw->autowrap */
  97.     &scrinvert, 
  98.     NULL,                /* 17 termw->autorepeat */
  99.     NULL,                 /* 18 termw->smoothscroll */
  100.     NULL,                /* 19 termw->dispcontchar */
  101.     &keep, 
  102.     NULL,                /* 21 termw->blockcursor */
  103.     NULL,                /* 22 termw->mouse_arrows */
  104.     NULL,                /* 23 termw->visible_bell */
  105.     NULL,                /* 24 termw->eightbit_disp */
  106.     NULL,                 /* 25 termw->blinkcursor */
  107.     &scrsize, &savinnum, &sendusercvdef,
  108.     &drop_dtr, &flow, &scrpostop, &scrposlft, &scrfntsz,
  109.     &wslotr, &fDTR, &fCTS
  110. };
  111.  
  112. #define NINAMES (sizeof(inames) / sizeof(int *))
  113.  
  114. char *cnames[] = {
  115.     &mypadc, &padch, &eol, &seol, &stchr, &mystch,
  116.     &fkeysactive, &savmcmdactive
  117. };
  118.  
  119. #define NCNAMES (sizeof(cnames) / sizeof(char *))
  120.  
  121. typedef long **IHandle;        /* handle to int[] */
  122. typedef char **CHandle;        /* handle to char[] */
  123.  
  124. struct lfile *lfiles = NULL;    /* list of launched take files */
  125.  
  126. /****************************************************************************/
  127. /* Delete the specified resource if it exists in the current resource file */
  128. /****************************************************************************/
  129. KillResource (type, id)
  130. ResType type;
  131. int id;
  132. {
  133.     Handle theRsrc;
  134.  
  135.     theRsrc = GetResource (type, id);
  136.     if ((theRsrc != NIL) && (HomeResFile (theRsrc) == CurResFile ())) {
  137.     RmveResource (theRsrc);
  138.     if (ResError () != noErr) {    /* check for error */
  139.         printerr ("Could not remove old resource: ", ResError ());
  140.         return;
  141.     }
  142.     DisposHandle (theRsrc);
  143.     }
  144. }                /* KillResource */
  145.  
  146.  
  147.  
  148. /****************************************************************************/
  149. /* savevals - save variables for MacKermit */
  150. /****************************************************************************/
  151. savevals()
  152. {
  153.     IHandle ihdl;
  154.     CHandle chdl, shdl;
  155.     SFReply savr;
  156.     Point where;
  157.     int err, cerr;
  158.     int rfnum;
  159.     int i;
  160.     FInfo finf;
  161.     Str255 name;
  162.     struct termw *termw;
  163.  
  164.     termw = ttermw;
  165.  
  166.     GetWTitle (termw->window, name);
  167.  
  168.     SetPt (&where, 75, 115);
  169.     SFPutFile (where, "\pSave variables in file:", name,
  170.                (DlgHookProcPtr) NILPROC, &savr);
  171.     if (!savr.good)        /* did they hit cancel? */
  172.     return;            /* yes, so return now */
  173.  
  174.     SetVol (NILPTR, savr.vRefNum);    /* select volume for rsrc file */
  175.  
  176.     /* p2cstr (&savr.fName); */
  177.     rfnum = OpenResFile (&savr.fName);
  178.     err = ResError ();
  179.     if (err == noErr) { /* file exists, clear old resources */
  180.     /* Be sure to delete the old resources, if they alraedy */
  181.     /* exist. Otherwise the resources will be added to the */
  182.     /* existing file (adding more and more resources with */
  183.     /* the same type and number). Unfortunately, for setting */
  184.     /* the parameters, Kermit always uses the first, i.e. */
  185.     /* the !oldest! set of resources! */
  186.     KillResource (SAVI_TYPE, SIVER);
  187.     KillResource (SAVC_TYPE, SCVER);
  188.     KillResource (KSET_TYPE, KSVER);
  189.     KillResource (MSET_TYPE, KMVER);
  190.     KillResource (SAVS_TYPE, SAVS_ID_FONT);
  191.     /*
  192.      * Change the creator to us so that a TEXT file
  193.      * will become launchable.  [Are we allowed to do
  194.      * this?]
  195.      */
  196.     err = GetFInfo (&savr.fName, savr.vRefNum, &finf);
  197.     if (err == noErr) {
  198.         finf.fdCreator = kermtype;    /* set creator */
  199.         err = SetFInfo (&savr.fName, savr.vRefNum, &finf);
  200.         if (err != noErr)
  201.         printerr ("Can't set finder info: ", err);
  202.     }
  203.     } else if ((err == resFNotFound) || (err == fnfErr) || (err == eofErr)) {
  204.     cerr = err;
  205.     /* file not existing ? */
  206.     CreateResFile (&savr.fName);    /* try to create */
  207.     if (ResError () != noErr) {    /* check for error */
  208.         printerr ("Unknown error from create: ", ResError ());
  209.         return;
  210.     }
  211.     /* set the file finder infos */
  212.     err = GetFInfo (&savr.fName, savr.vRefNum, &finf);
  213.     if (err != noErr)
  214.         printerr ("Can't get finder info for file: ", err);
  215.     else {
  216.         finf.fdFldr = filargs.filfldr;    /* use same folder as
  217.                          * application */
  218.         if (cerr != eofErr)            /* if was not data only */
  219.         finf.fdType = settingstype;     /* set type */
  220.         finf.fdCreator = kermtype;    /* set creator */
  221.         err = SetFInfo (&savr.fName, savr.vRefNum, &finf);
  222.         if (err != noErr)
  223.         printerr ("Can't set finder info: ", err);
  224.     }
  225.     /* try open again */
  226.     rfnum = OpenResFile (&savr.fName);
  227.     if (rfnum == -1) {    /* failed to open? */
  228.         printerr ("Couldn't Open resource file: ", ResError ());
  229.         return;
  230.     }
  231.     } else {
  232.     printerr ("Couldn't Open resource file: ", err);
  233.     return;
  234.     }
  235.  
  236.     scrinvert = termw->screeninvert;    /* save the current value */
  237.     scrsize = termw->screensize;
  238.     savinnum = innum;        /* save current port too */
  239.     savmcmdactive = mcmdactive;
  240.  
  241.     get_term_pos(termw, &scrpostop, &scrposlft);    /* in ckmco2.c */
  242.     scrfntsz = termw->current_size;
  243.  
  244.     /*
  245.      * PWP: changed the format so {count, item, item, ...} so that we can
  246.      * load older versions without dying
  247.      */
  248.  
  249.     ihdl = (IHandle) NewHandle ((long) (NINAMES + 1) * sizeof (int));
  250.     (*ihdl)[0] = NINAMES;
  251.     for (i = 0; i < NINAMES; i++)    /* copy from indirect table */
  252.     if (inames[i])
  253.         (*ihdl)[i + 1] = *inames[i];
  254.     AddResource ((Handle) ihdl, SAVI_TYPE, SIVER, "");
  255.     /*
  256.      * Add things in ttermw manually.
  257.      */
  258.     (*ihdl)[14 + 1] = termw->newline;
  259.     (*ihdl)[15 + 1] = termw->autowrap;
  260.     (*ihdl)[17 + 1] = termw->autorepeat;
  261.     (*ihdl)[18 + 1] = termw->smoothscroll;
  262.     (*ihdl)[19 + 1] = termw->dispcontchar;
  263.     (*ihdl)[21 + 1] = termw->blockcursor;
  264.     (*ihdl)[22 + 1] = termw->mouse_arrows;
  265.     (*ihdl)[23 + 1] = termw->visible_bell;
  266.     (*ihdl)[24 + 1] = termw->eightbit_disp;
  267.     (*ihdl)[25 + 1] = termw->blinkcursor;
  268.  
  269.     chdl = (CHandle) NewHandle ((long) (NCNAMES + 1) * sizeof (char));
  270.     (*chdl)[0] = NCNAMES;
  271.     for (i = 0; i < NCNAMES; i++)    /* copy from indirect table */
  272.     (*chdl)[i + 1] = *cnames[i];
  273.     AddResource ((Handle) chdl, SAVC_TYPE, SCVER, "");
  274.  
  275.     savekset ();        /* save key bit table */
  276.     savemset ();        /* save key macros table */
  277.     
  278.     /* save the screen font name */
  279.     GetFontName (termw->current_font, name);
  280.     shdl = (CHandle) NewHandle ((long) (Length(name) + 1) * sizeof (char));
  281.     SetString (shdl, name);
  282.     AddResource ((Handle) shdl, SAVS_TYPE, SAVS_ID_FONT, "\pScreen font");
  283.     
  284.     CloseResFile (rfnum);    /* this does an UpdateResFile too */
  285.     FlushVol (NILPTR, savr.vRefNum);    /* flush the bits out */
  286.  
  287.     DisposHandle((Handle) ihdl);
  288.     DisposHandle((Handle) chdl);
  289.     DisposHandle((Handle) shdl);
  290.     
  291.     SetWTitle (termw->window, &savr.fName);
  292. }                /* savevals */
  293.  
  294.  
  295.  
  296. /****************************************************************************/
  297. /* do a Load settings... dialog */
  298. /****************************************************************************/
  299. loadvals ()
  300. {
  301.     int err;
  302.     SFReply savr;
  303.     Point where;
  304.     FileParam pb;
  305.  
  306.     SetPt (&where, 75, 115);
  307.     SFGetFile (where, "\pLoad variables from:", (FileFilterProcPtr) NILPROC,
  308.                2, &loadlist, (DlgHookProcPtr) NILPROC, &savr);
  309.  
  310.     if (!savr.good)        /* did they hit cancel? */
  311.     return;            /* yes, so return now */
  312.  
  313.     /*
  314.      * Due to the mstr# resource, we can be called by multifinder
  315.      * with any file that has a KR09 creator.  Files of type
  316.      * TEXT probably contain scripts.  File types of KERS are
  317.      * Kermit settings resouces.  A TEXT file may also contain
  318.      * settings resources.  Figure out which we have and 
  319.      * try to do the appropriate thing.
  320.      */
  321.     pb.ioNamePtr = savr.fName;
  322.     pb.ioVRefNum = savr.vRefNum;
  323.     pb.ioFVersNum = pb.ioFDirIndex = 0;
  324.     err = PBGetFInfo((ParmBlkPtr)&pb, FALSE);
  325.     p2cstr (&savr.fName);
  326.     if (err != noErr) {
  327.     printfalert("Could not PBGetFInfo for %s", savr.fName);
  328.     return;
  329.     }
  330.  
  331.     if (pb.ioFlRLgLen)            /* if resources present */
  332.     doloadvals(&savr.fName, savr.vRefNum);    /* do the load */
  333.  
  334.     if (pb.ioFlLgLen) {            /* if data present */
  335.     kShowWindow(ctermw);
  336.     kSelectWindow(ctermw->window);
  337.  
  338.     /* queue the take file */
  339.     getlfile(savr.fName, savr.vRefNum);
  340.     }
  341. } /* loadvals */
  342.  
  343.  
  344. /*
  345.  * takedialog
  346.  * Do a Take Command File... dialog
  347.  */
  348. takedialog ()
  349. {
  350.     SFReply savr;
  351.     Point where;
  352.  
  353.     SetPt (&where, 75, 115);
  354.     SFGetFile (where, "\pCommand File:", (FileFilterProcPtr) NILPROC,
  355.                1, &texttype, (DlgHookProcPtr) NILPROC, &savr);
  356.  
  357.     if (!savr.good)        /* did they hit cancel? */
  358.     return;            /* yes, so return now */
  359.  
  360.     /* force command window */
  361.     kShowWindow(ctermw);
  362.     kSelectWindow(ctermw->window);
  363.  
  364.     /* queue the take file */
  365.     p2cstr(&savr.fName);
  366.     getlfile(savr.fName, savr.vRefNum);
  367. }                /* takedialog */
  368.  
  369.  
  370. /****************************************************************************/
  371. /****************************************************************************/
  372. findfinderfiles ()
  373. {
  374.     short msg, cnt;
  375.     int err, rfnum;
  376.     AppFile apf;
  377.     FInfo ainfo;
  378.     Str255 defvolname;
  379.     FileParam pb;
  380.     short defvolrefnum;
  381.     int i;
  382.     Boolean first;
  383.     extern Boolean have_128roms;
  384.     extern int startconnected;
  385.  
  386.     startconnected = TRUE;
  387.  
  388.     CountAppFiles (&msg, &cnt);    /* anything clicked by user? */
  389.     if (cnt == 0 || msg == appPrint) {    /* or they want us to print (?) */
  390.     /* filargs.filfldr = fDesktop; */  /* forget about loading values */
  391.     if (GetVol(&defvolname, &defvolrefnum) == noErr)
  392.         filargs.filfldr = defvolrefnum;
  393.     else
  394.         filargs.filfldr = 0;
  395.     loadkset ();        /* make new files appear on desk */
  396.     return;            /* use our default KSET */
  397.     }
  398.  
  399.     /*
  400.      * Loop through all the applications files.  If the data length
  401.      * is nonzero, assume this is a take file and put it on our
  402.      * list.  Load resources from the first (only) file that has
  403.      * Kermit resources.
  404.      */
  405.     first = TRUE;
  406.     for (i = 1; i <= cnt; i++) {
  407.     GetAppFiles(i, &apf);
  408.     err = GetFInfo (&apf.fName,    /* get settings file info */
  409.             apf.vRefNum, &ainfo);
  410.     if (err != noErr) {
  411.         printerr ("Couldn't GetFInfo for an applications file: ", err);
  412.         continue;
  413.     }
  414.  
  415.     pb.ioNamePtr = &apf.fName;
  416.     pb.ioVRefNum = apf.vRefNum;
  417.     pb.ioFVersNum = pb.ioFDirIndex = 0;
  418.     err = PBGetFInfo((ParmBlkPtr)&pb, FALSE);
  419.     if (err != noErr) {
  420.         printerr("Couldn't PBGetFInfo for a file", err);
  421.         continue;
  422.     }
  423.  
  424.     /*
  425.      * Load settings resources out of the first file we find
  426.      * that has Kermit resources in it.
  427.      */
  428.     if (first && (pb.ioFlRLgLen > 0)) {
  429.         /*
  430.          * Check to see that Kermit resources are present.  Otherwise,
  431.          * we might have a text file with some kind of edit resources.
  432.          */
  433.         SetVol (NILPTR, apf.vRefNum); /* select volume */
  434.         rfnum = OpenResFile(apf.fName); /* open the resource file */
  435.         if (rfnum == -1)        /* DEBUG!!!!!!!!!! */
  436.         printfalert("Couldn't OpenResFile: ", ResError ());
  437.  
  438.         /*
  439.          * If no 128k roms, just assme we found Kermit resources.
  440.          */
  441.         if (!have_128roms ||
  442.         ((rfnum != -1) && (Count1Resources(SAVI_TYPE) > 0))) {
  443.         first = FALSE;
  444.         p2cstr (&apf.fName);
  445.         doloadvals(&apf.fName, apf.vRefNum);    /* load the file */
  446.         c2pstr (&apf.fName);
  447.         /* use appl or text file's folder */
  448.         filargs.filfldr = ainfo.fdFldr;
  449.         }
  450.         if (rfnum != -1)
  451.         CloseResFile(rfnum);
  452.     }
  453.  
  454.     /*
  455.      * If there is data and the file is type TEXT assume this
  456.      * is a take file for us.
  457.      */
  458.     if ((pb.ioFlLgLen > 0) && (ainfo.fdType == 'TEXT')) {
  459.         startconnected = FALSE;    /* so we will take files */
  460.         p2cstr (apf.fName);
  461.         getlfile(apf.fName, apf.vRefNum);
  462.         c2pstr (&apf.fName);
  463.     }
  464.     }
  465. }                /* findfinderfiles */
  466.  
  467.  
  468. /*
  469.  * getlfile
  470.  * Build an lfile entry and put it on the queue.
  471.  */
  472. getlfile (char *name, short vref)
  473. {
  474.     struct lfile *lfile, *lastlfile = NULL;
  475.  
  476.     lfile = (struct lfile *) malloc(sizeof(struct lfile));
  477.     bzero((char *)lfile, sizeof(struct lfile));
  478.  
  479.     lfile->name = (char *)malloc(strlen(name));
  480.     if (!lfile->name) {
  481.     printerr("Not enough memory for applications files", 0);
  482.     return;
  483.     }
  484.     strcpy(lfile->name, name);
  485.  
  486.     lfile->vRefNum = vref;
  487.  
  488.     /* link on the list */
  489.     if (lastlfile)
  490.     lastlfile->next = lfile;
  491.     else
  492.     lfiles = lfile;
  493.     lastlfile = lfile;
  494. }
  495.  
  496.  
  497.  
  498. /*
  499.  * startlfile
  500.  * Start up a mac take file the finder gave us.
  501.  */
  502. void startlfile ()
  503. {
  504.     struct lfile *lfile;
  505.  
  506.     if (!(lfile = lfiles))
  507.     return;
  508.  
  509.     lfiles = lfile->next;        /* delink from list */
  510.     SetVol(NILPTR, lfile->vRefNum);    /* make sure volume is correct */
  511.                                         /* Should we save current loc? */
  512.     dotake(lfile->name);
  513.  
  514.     /* release memory held by queue entry */
  515.     free(lfile->name);
  516.     free(lfile);
  517. }
  518.  
  519.  
  520. extern MenuHandle menus[LAST_MENU + 1];    /* handle on our menus */
  521.  
  522. /****************************************************************************/
  523. /****************************************************************************/
  524. doloadvals(fn, refnum)
  525.     char *fn;
  526.     int refnum;
  527. {
  528.     int rfnum;
  529.     int i, n;
  530.     IHandle resinames;
  531.     CHandle rescnames, resstrs;
  532.     short fntnum;
  533.     struct termw *termw;
  534.  
  535.     termw = ttermw;
  536.  
  537.     /*
  538.      * Set the place-holder vars to their current values so an update
  539.      * of an older kermit save doesn't do wierd things to them
  540.      */
  541.     scrinvert = termw->screeninvert;    /* save the current value */
  542.     scrsize = termw->screensize;
  543.     savinnum = innum;            /* save current port too */
  544.     savmcmdactive = mcmdactive;
  545.     get_term_pos(termw, &scrpostop, &scrposlft);    /* in ckmco2.c */
  546.     
  547.     scrfntsz = termw->current_size;
  548.  
  549.     SetVol (NILPTR, refnum);    /* select volume */
  550.     rfnum = OpenResFile (c2p_tmp(fn));    /* open the resource file */
  551.     if (rfnum == -1) {
  552.     printerr ("Couldn't open file: ", ResError ());
  553.     return;
  554.     };
  555.  
  556.     /* load 'SAVI' resource, the saved integer values, */
  557.     /* 'SAVC' saved characters */
  558.  
  559.     if ((resinames = (IHandle) GetResource (SAVI_TYPE, SIVER)) == NIL ||
  560.     (rescnames = (CHandle) GetResource (SAVC_TYPE, SCVER)) == NIL) {
  561.     CloseResFile (rfnum);
  562.     printerr ("Can't load your settings, damaged file or wrong version.",
  563.           0);
  564.     return;            /* and return */
  565.     }
  566.     cursor_erase (termw);        /* hide the current cursor */
  567.  
  568.     /*
  569.      * PWP: changed the format to {count, item, item, ...} so that we can
  570.      * load older versions without dieing
  571.      */
  572.  
  573.     HLock((Handle) resinames);    
  574.     n = (*resinames)[0];
  575.     if (n > NINAMES)
  576.     n = NINAMES;
  577.     for (i = 0; i < n; i++)
  578.     if (inames[i])
  579.         *inames[i] = (*resinames)[i + 1];
  580.     /*
  581.      * Do the things in ttermw one by one.
  582.      */
  583.     termw->newline = (*resinames)[14 + 1];
  584.     termw->autowrap = (*resinames)[15 + 1];
  585.     termw->autorepeat = (*resinames)[17 + 1];
  586.     termw->smoothscroll = (*resinames)[18 + 1];
  587.     termw->dispcontchar = (*resinames)[19 + 1];
  588.     termw->blockcursor = (*resinames)[21 + 1];
  589.     termw->mouse_arrows = (*resinames)[22 + 1];
  590.     termw->visible_bell = (*resinames)[23 + 1];
  591.     termw->eightbit_disp = (*resinames)[24 + 1];
  592.     termw->blinkcursor = (*resinames)[25 + 1];
  593.  
  594.     HUnlock((Handle) resinames);    
  595.     ReleaseResource((Handle) resinames);
  596.  
  597.     HLock(rescnames);    
  598.     n = (*rescnames)[0];
  599.     if (n > NCNAMES)
  600.     n = NCNAMES;
  601.     for (i = 0; i < n; i++)
  602.     *cnames[i] = (*rescnames)[i + 1];
  603.     HUnlock(rescnames);    
  604.     ReleaseResource(rescnames);
  605.  
  606.     /* restore the screen font name */
  607.     fntnum = 0;
  608.     if ((resstrs = (CHandle) GetResource (SAVS_TYPE, SAVS_ID_FONT)) != NIL) {
  609.     HLock(resstrs);    
  610.     GetFNum(*resstrs, &fntnum);
  611.     if (fntnum != 0)
  612.         termw->current_font = fntnum;
  613.     HUnlock(resstrs);
  614.     ReleaseResource(resstrs);
  615.     }
  616.  
  617.     loadkset ();        /* load new KSET */
  618.     loadmset ();        /* release current MSET and load new one */
  619.     
  620.     CloseResFile (rfnum);    /* no longer needed */
  621.     
  622.     set_term_pos(termw, scrpostop, scrposlft);    /* in ckmco2.c */
  623.  
  624.     termw->current_size = scrfntsz;    /* change font size */
  625.     /* we (may have) changed the font above */
  626.     term_new_font(termw);        /* update what font to use, font constants */
  627.     setup_font_menu();        /* update font and sizes */
  628.  
  629.     grow_term_to(termw, scrsize);    /* change screen size */
  630.  
  631.     if (scrinvert != termw->screeninvert)
  632.     invert_term (termw);
  633.  
  634.     cursor_draw(termw);        /* show the new cursor */
  635.  
  636.     if (savinnum != innum) {    /* if using the other port */
  637.     port_close();
  638.     port_open(savinnum);
  639.     }
  640.  
  641.     /* tell serial driver about new vals */
  642.     (void) setserial (innum, outnum, speed, KPARITY_NONE);
  643.     (void) sershake(flow);
  644.     
  645.     /* Frank changed main() to call init and then set flow, parity, etc.
  646.        so we make sure they will be set right (again) after we return. */
  647.     dfprty = parity;                    /* Set initial parity, */
  648.     dfflow = flow;                      /* and flow control. */
  649.  
  650.     /* set the two check menus */
  651.     enable_fkeys (fkeysactive);
  652.     CheckItem (menus[SETG_MENU], SCRD_SETG, (fkeysactive));
  653.     if (savmcmdactive != mcmdactive) {
  654.     mcmdactive = savmcmdactive;
  655.     setup_menus();
  656.     }
  657.     CheckItem (menus[SETG_MENU], MCDM_SETG, (mcmdactive));
  658.  
  659.     SetWTitle (termw->window, c2p_tmp(fn));
  660.  
  661.     /* (PWP) bounds check the values we just got to be double extra safe */
  662.     
  663.     if (urpsiz > MAXRP-8) {
  664.         printerr("Recieve packet lengh is too big", urpsiz);
  665.     urpsiz = MAXRP-8;
  666.     }
  667.     if (spsiz > MAXSP) {
  668.         printerr("Send packet length is too big", spsiz);
  669.     spsiz = MAXSP;
  670.     }
  671.     if (wslotr < 1) 
  672.     wslotr = 1;
  673.     if (wslotr > 1)
  674.     swcapr = 1;
  675.     else
  676.     swcapr = 0;
  677. }                /* doloadvals */
  678.  
  679. /*
  680.  * Junk so Emacs will set local variables to be compatible with Mac/MPW.
  681.  * Should be at end of file.
  682.  * This module uses 8
  683.  * 
  684.  * Local Variables:
  685.  * tab-width: 8
  686.  * End:
  687.  */
  688.